| CollapseNonGrandparentNodes method |
Applies to
TDUnitDialog
Declaration
Procedure CollapseNonGrandparentNodes(RootNode: TTreeNode);Implementation
procedure TDUnitDialog.CollapseNonGrandparentNodes(RootNode: TTreeNode);
var
AChildNode: TTreeNode;
begin
if not NodeIsGrandparent(RootNode) then
RootNode.Collapse(false);
AChildNode := RootNode.GetFirstChild;
while AChildNode <> nil do
begin
CollapseNonGrandparentNodes(AChildNode);
AChildNode := RootNode.GetNextChild(AChildNode);
end;
End; |
|
|